EEE 


D 8 
Sy 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
LLL IIIIIIIII BBBBBBBBBBBB RRRRRRRRRRRR TTTTTTTTTTTTTTT «LLL Ll 
LLL HII BBBBBBBBBBBB RRRRRRRRRRRR TTTTTTTTTTTTITTT «LLL + 
LLL LITT BBB RRRRRRRRRRRR TTTTTTTTTITITITT «LLL L 
LLL 111 BBB BBB RRR RRR TTT LLL | Ll 
LLL II] BB BBB RRR RRR TTT LLL LI 
LLL 11] BBB BBB RRR RRR TTT LLL | Ll 
LLL II] BBB BBB RRR RRR TTT LLL | Ll 
LLL Il] BBB RRR RRR TTT LLL Ll 
LLL Il] BBB BBB RRR RRR TTT LLL Ll 
LLL III B RRRRRRRRRRRR TTT LLL Ll 
LLL Ill BBBBBBBBBBBB RRRRRRRRRRRR TTT LLL LI 
LLL Ill 8 RRRRRRRRRRRR TTT LLL ul 
LLL III BRA BBB RRR RRR TTT LLL 
LLL II] BBB RRR RRR TTT LLL Ll 
LLL II] BER BBB RRR RRR TTT LLL Ll 
LLL II] BRB BBB RRR RRR TTT LLL Ll 
LLL III ERB BBB RRR RRR TTT LLL Ll 
LLL Ill BSB BB RRR RRR TTT LLL Ll 
LLELLLLLLLLLLLLL IIIIIIIII BBBBBBBBBBBB RRR RRR TTT LELLLLLLLLLLLLL Ll 
LLELLLLLLLLLLLLL TITIII111 BBBBBBBBBBBB RRR RRR TTT LI 
LLELLLLLLLLLLLLL LIIIIIII BBBBBBBBBBBB RRR RRR TTT LELLLLLLLLLLLLL 


| 
LLLLLLLLLLLLLLL | 
| 
| 
| 


**F I LE**1D**L IBCUSTOM 


] 
| 

LL IIIII BBBBBBBB cccccccc §=(u UU SSSSSSSS TTTTTTTTTT 000000 MM MM 

LL HII! BBBBBBBB cecccccc §=U UU SSSSSSSS_ TTTTITTTIT 000900 MM MM 

LL I] BB BB CC UU UU $$ TT 00 00 MMMM MMMM 

LL I] BB BB CC UU UU SS TT 00 00 MMMM MMMM 

LL I] BB BB CC UU UU SS TT 00 00 MM MM MM 

LL II BB BB CC UU uu SS TT 00 00 MM MM MM 

LL I] BBBBBBBB cc UU UU SSSSSS TT 00 00 MM 

LL I] B BB cc UU UU SSSSSS TT 00 0O MM MM 

LL I] BB BB CC UU UU SS TT 00 00 MM MM 

LL I] BB BB CC UU UU SS TT 00 0O MM MM 

LL I] BB BB CC UU UU SS TT 00 00 MM MM cove 

LL I] BB BB CC UU UU SS TT 00 00 MM MM cove 

LLLLLLLLLL IIIII] BBBBBBBB CCCCCCCC ~ UUUUUUUUUU «= SSSSSSSS TT 000000 MM MM coos 

LLLLLLLLLL III] BBBBBBBB CCCCCCCC YUUUUUUUUU «= SSSSSSSS TT 000000 MM MM cove 

LL IIII11 SSSSSSSS 

LL III] SSSSSSSS 

LL I] SS 

LL I] SS 

LL I] SS 

LL I] SS 

LL I] SSSSSS 

LL I] SSSSSS 

LL I] SS 

LL I] SS 

LL I] S$ 

LL II SS 

LLLLLLLLLL III] SSSSSSSS 

LLLLLLLLLL HII] SSSSSSSS 
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| 


LIBSCUSTOMIZE_O Customize printed output 


1 
1 
MODULE LIBS hg Z TPUT ah ba > stom 
IDENT = "2-008" ran 


—oooO 


BEGIN 


panei pai eae meee mC i year POT pr 
'® 

'® COPYRIGHT (c) 1978, 1980, 1982, 1984 B 

'® DIGITAL EQUIPMENT CORPORATION, - MAYNARD. MASSACHUSETTS. 

't ALL RIGHTS RESERVED. 


® 
® 
® 
® 
® 
, ® 
i THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
iw ONLY IN ACCORDANCE WITH THE TER RMS OF SUCH LICENSE AND WITH THE 
it INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
i® COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
i® OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
ie TRANSFERRED. * 
® 
® 
® 
* 
® 
® 
*® 
® 
® 
* 


i THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
= OORPORAT I On NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


iw DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
!# SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


WAIWAIAI AI AI POPUPIPYNINIPINID 2 9 9 OS SM DOOOOCOCSCOCO 
OWONAVUEWN — O OONAUES WN OO OONOAUE WN OODNOUS WN 


NOUS WR 0 OO NO UE WIN 0 OONAUE WN O OONOAUEWWN S(O OONOAUS WN SO OONOUS Wh 


1 
1 
1 
1 
1 
1 1 
1 1 
1 1 
1 1 
1 1 
1 1 
1 1 
1 1 
1 1 
1 1 
2 1 
2 1 
2 1 
2 1 
2 1 | 
2 1 
2 00 1 Ie 
§ 00 LL eR AREER ERATE AREER TAA EREERE EEE | 
00 zz 
¢ 00 1 
00 1 {ee | 
; 4 : } FACILITY: General Purpose Library | 
; 88 : } ABSTRACT: | 
3 00 1! This module contains the procedures LIBSCURRENCY, LIBSDIGIT_SEP 
3 005 and LIBSRADIX_POINT. 
4 | 
; sit ' ENVIRONMENT: User mode - AST reentrant 
. 9040 ! : AUTHOR: John Sauter, CREATION DATE: 18-OCT-1979 | 
4 0042 1 ! EDIT HISTORY: 
4 0043 1! 
4 0044 1! 1-001 - Original. 
4 0045 1! 1+ - Return signals as status. JBS 08-JAN-1980 
4 0046 1 ! 1-003 - Change STR$ codes to LIB$. JBS 22-JAN-1980 
4 0047 1 ! 1-004 = Enhance to recognize additional classes of spring descriptors 
4 0048 1! by invoking LIBSANALYZE_SDESC_R3 to extract length and address 
4 0049 1! of 1st data byte from descriptor 
5 0050 1! Change calls from STRSCOPY - to “LIBSSCOPY _DXDX6. | 
5 0051 1! STRSCOPY-R to LIBSSCOPY-R -bX. 
5 it) 1! STRSFREET_DX to LIBSSFREE1-D 
5 0053 1! Eliminate need for handler and to convert SIRS. Statuses to 
5 0054 1! LIBS statuses 
5 0055 1 | RKR 27-MAY~-1981 
5 0056 1 ! 1-005 = Add spectalacase, co ode to process strings that ‘read’ Like 
5 0057 1! fixed strings. R 7-O0CT-1981 


5. poerematteaeeren etree 1E$S0c1986 99:48:33 UML SULRHCHBCNS Ba. toed | 


| 
| 1-006 - Redirect all isbis S, from, L IBANALYZE- SDES¢ RS to | 
' B ar E. Do all copyifig with LIBSSCOPY_R_Dx6. | 


! Re 

RRS 

i 1-007 = Use TRNLOG instead of LIBSSYS_TRNLOG. Other minor improvements. 
} SBL 8-0ct-1982 

' 
! 


i 3-001 Rewrite using common inner routine. SBL 8-Feb-1983 
' 2-002 Use. LNASC ro GTH for maximum size of equivalence string. 
=UC t= 


1 
1 
1 
1 
1 
1 
1 
1 


Epo D barente pried eee Asia (90:38 INGA SUECHEMMBes 


67 066 1! 

68 $ 1 i proLocuE FILE: 

i bes 1 

71 070 1 REQUIRE "RTLIN:LIBPROLOG’: | LIBS definitions | 
7 1 


! TABLE OF CONTENTS: 


RRENCY ' Get cyurcency symbol 


ee Be ROUT INE 
tiBSp BIGHT _SEP, Get di git separator 
' 


fo ah Val val esbeah al al al eal sala oP oP oP oP oP oP oP oP 


3 1 

r 1 

; 1 

s 1 

3 1 

3 ; 1 : 

3 1 : 1 

: 144 «1 

; o1e8 | 

; a 

; #8 0149 1 LIBSRADIX~ POINT, ! Get radix point 

; 81 0150 1 GET_CUSTOM _SYMBOL; ' Inner routine 

.: ae 0151 «1 

3 83 01 ¢ 1! 

; 84 01 1 ! MACROS: 

; 8 0154 1! 

: 8686 0155 1! NONE 

; 87 0156 1! 

> BB 0157 1 | EQUATED SYMBOLS: | 
ee «5 0158 1! 

: 690 0159 1! NONE 

an 2 | 0160 1! 

; 9 0161 1 ! OWN STORAGE: 

3 9 p66 73 
>: «694 0163 1! NONE 
; 0164 1! 
; 96 0165 1 ! EXTERNAL REFERENCES: 

a 0166 1! 

3 98 0167 1 

; 99 0168 1 EXTERNAL ROUTINE 

; 100 0169 1 LIBSANALYZE_SDESC_R2 : LIBSANALYZE_SDESC -R2$L INKAGE, 

; 101 0170 1 Get length and address 

3 H4 ata } LIBSSCOPY_R_DX6 : LIBSSCOPY_R_DX6$LINKAGE; Copy a string by reference 


LIBSCUSTORIZE_O C 
-00 Get currency symbol 14-Sep-19 
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uw 
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stomize printed output 16-Sep-1984 742: AX-11 iss- 4.0-74 
: Toe <8 Re 90:98:55 PIBRTL SRE Lisclsion’B 2;1 


1 GLOBAL ROUTINE LIBSCURRENCY (ZSBTTL m currency symbol' 
CURRENCY_STR: REF as C, BYTE), ! Where to put symbol 
OUT_LEN: “REF VECTOR C, WORD i Optional lengt 


oe 
FUNCTIONAL DESCRIPTION: 


This routine returns the system's currency symbol. It should be 


used before a number to indicate that the number represents 
money in the country the system is running in. This routine 
works 7 Srens het ing the logical name SYSSCURRENCY. If the 
an ion fails, this routine returns ‘'$'', the US money 
symbol. 

If the translation succeeds the text procyces is returned. 
Thus a system manager can define SYSSCURRENCY as a system-wide 
Logical name to provide a default for all users, and an 
individual user with a special need can define SYSSCURRENCY as 
a user logical name to override the default. 


CALLING SEQUENCE: 
ret_status.wic.v = LIBSCURRENCY (currency_str.wt.dx 
,out_len.ww.rJ) 
FORMAL PARAMETERS: 
currency _str String to receive the currency string 
out_len Spy renee Length of the currency string. 
This is valuable if currency_str_ 
is a fixed-length string, since it does not 
include the padding. 
IMPLICIT INPUTS: 
System-wide (or user-defined) logical name SYSSCURRENCY 
IMPLICIT OUTPUTS: 
NONE 
CONDITION CODES: 


LIBS_INVSTRDES Invalid exe sng descriptor 
LIBS_STRTRU String truncated to fit into output 


SIDE EFFECTS: 
NONE 
BEGIN 


BUILTIN 
ACTUAL COUNT; 


L188 USTOMIZE_O patentee printed output 
Get currency symbol 


; Routine Size: 28 bytes, Routine Base: _LIBSCODE + 000D 


D7 
10360-1982 99:98:35 Heat sre Siacustom.6$2,1 


LIBSCURRENCY 


Page 


LIBSCUSTOMIZE_OUTPUT Customize printed output 
\2-002\ 


-LIBSCODE,NOWRT, SHR, PIC,2 
<12>\SYSSCURRENCY\ 


LIBSANALYZE_SDESC_R2 
LIBSSCOPY_R_DX6 


IBSCURRENCY, Save nothing 
FRA 
P), #2 
T_LEN 
-(SP) 


CURRENCY 
#4, GET "tUstom_ SYMBOL 


; 18 9 14 
; 164 ; i Call GET_CUSTOM_SYMBOL to do the work. 
: 16 0234 Fr 
; 183 0 5 RETURN ( GET ~LUSTOM. mB ( 
> 168 : CURRENCY-STR CO? 
: 169 0 (IF ACTUALCOUNT (5 Oe ad 2 THEN OU y _LEN (OJ ELSE 0), 
: 170 ) UPLIT BYTE <ZASCIC'SYSSCURRENCY') 
12 3 59 zc°$")); 
: 178 0241 1 END; ! End of routine 
TITLE 
* IDENT 
.PSECT 
59 43 GE 45 52 52 55 43 24 53 59 53 OC 00000 P.AAA: .ASCII 
.EXTRN 
*EXTRN 
0000 00000 ENTRY 
4 DD 00002 PUSHL 
EC AF 9F 00004 PUSHAB 
02 6C 91 00007 CMPB 
05 1F OOOOA BLSSU 
08 AC DD 0000C PUSHL 
02 11 0000F BRB 
7E D4 00011 1$: CLRL 
04 AC DD 00013 2$: PUSHL 
0000v CF 04 FB 00016 CALLS 
04 0001B ET 
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, USTOMIZE_O Customize printed output 1b-sep-19 4 00:45'S6 AX-1 


1 a nh 
LIBRTL.SRCJLIBCUSTOM.B52;1 


Get digit separator 14-Sep-1984 
1 GLOBAL ROUTINE LIBSDIGIT_SEP (%SBTTL mt digit separator’ 
DIGIT _SEP_STR: REF 8, 0Ck {C, BYTE), ! where to put symbol 
OUT_LEN: REF VECTOR C, “WORD i Optional Length of symbol 


PRR IN tt en ts 9 — 2 — 9 —s — 4 2s as — 2s as > 2» —s os 2s 2s 5 ss 2 ss 2) 2s os 2s 9 ss 


++ 
FUNCTIONAL DESCRIPTION: 


This routine returns the system's digit separator symbol. It 
should be used to separate groups of three ch by in the 
integer part of a number, for readability, us ng the customary 
hs tf F This routine works by translating the logical name 
SYSSDIGIT SEP. If the translation fails, this routine returns 

..» the OS qigit separator. If the translation succeeds the 
text produced is returned. Thus a system manager can define 
SYSSDIGIT_SEP as a system-wide tag te ae name to provide a 
default for all users, and an individual user with a special 
need can define SYSSDIGIT_SEP as a user logical name to 
override the default. 


CALLING SEQUENCE: 


ret_status.wic.v = LIBSDIGIT_SEP (digit_sep_str.wt.dx 
,out_len.ww.rJ) 


FORMAL PARAMETERS: 
digit sep_str String to receive the digit_sep string : 
out_len Spy sonat length of the digit separator string. 
This is valuable if digit_sep_str is a 
fixed-length string, since it does not include 
the padding. 
IMPLICIT INPUTS: 
System-wide (or user-defined) logical name SYSSDIGIT_SEP 
IMPLICIT OUTPUTS: 


NONE 


: CONDITION CODES: 


SS$_NORMAL Normal successful completion 
LIBS_INVSTRDES Invalid string descriptor : 
LIB$_STRTRU Result did not fit in caller's string; 
truncated on right 
SIDE EFFECTS: 
NONE 


BEGIN 
BUILTIN 


L IERSUSTONIZE_0 Customize printed output 20-74 


. 7 
ICSEgHOU 98:50:58 HMNI SRN ct 


Get digit separator LIBRTL.SRCILIBCUSTOM.B32;1 
; 99 ACTUALCOUNT; 
3 4 4 
3 4 1 '+ 
3 5 8 ; Call GET_CUSTOM_SYMBOL to do the work. 
: i 
3 8 8 8 RETURN ( GET_CUSTOM sp mgor ( 
H 9 0 Be DIGIT_SEP_STR (0,0,0,0), 
: 240 030 (IF ACTUACCOUNT ()GEQU’2 THEN OUT_LEN (OJ ELSE 0), 
; 241 0308 3 UPLIT BYTE (ZASCIC'SYSSDIGIT_SEP'), 
3 seg 0309 2 Be « dda 
; $e 0310 ¢ 
: 44 0311 END; ! End of routine LIBSDIGIT_SEP 
50 45 53 SF 54 49 47 49 44 24 53 59 53 OD 00029 P.AAB: .ASCII <13>\SYSSDIGIT_SEP\ 
0000 00000 -ENTRY LIBSDIGIT_SEP, Save nothing 
2C dd 00002 USHL #44 
EB AF 9F 00004 PUSHAB P.AAB 
02 6C 91 00007 CMPB (AP), #2 
05 1F QOOOA BLSSU._—'1$ 
08 AC DD O000C PUSHL OUT_LEN 
02 11 OO00F BRB 2$ 
7E D4 00011 1$ CLRL -(SP) 
04 AC DD 00013 2$ PUSHL DIGIT_S 
0000v CF 04 FB 00016 CALLS #4, Gere COSTOM. SYMBOL 
04 00018 RET 


; Routine Size: 28 bytes, Routine Base: _LIBSCODE + 0037 


CC CC CL ttt atta te 


Page 


Nee eee 


7 
1b-se -1984 00:42: AX-11 Bliss-32 V4.0-74 Page 8 
127808- 1 3b 90:48:56 LIBRTL. RCILIBCUSTOM.B 2;1 ° (5). 
1 GLOBAL ROUTINE LIBSRADIX_POINT (%SBTTL fei radix porns symbol" 
RADIX_P YTEJ, ‘ 


OINT STR: REF BLOCK C, B here to symbol 
OUT_LEN: REF VECTOR C, WORD ! Optional length of symbol 


IBSCUSTOMIZE_O Customize printed output 
Petts “ Get radix Soint symbol 


++ 
FUNCTIONAL DESCRIPTION: 


This routine returns the system's radix point symbol. It 
should be used inside a digit +e to divide the integer 

art from the fraction part, using the customary symbol. 

his routine works by trans [ating the Logrses name 
SYSSRADIX_POINT. If the translation fails, this routine 
returns ‘'.'’, the US radix point symbol. If the translation 
succeeds the text produced is returned. Thus a system manager 
can define SYSSRADIX_POINT as a system-wide st hd name to 
provide a default for all users, and an individual user with a 
special need can define SYSS$RADIX_POINT as a user logical name 
to override the default. 


WN WWW AAWNIAAAAAINAIAAI 
WWW ALA AAI AIR ROPONOPUNINONPNUAY) 4 
AUEWN OO OONAULSWWN @OODNOUL WT 


00 0D 05 09 09 SI NIN SI SIS NNN NIAAA AAA AAA MMIII 


; CALLING SEQUENCE: 

3 ret_status.wic.v = LIBSRADIX_POINT (radix_point_str.wt.dx 
,out_len.ww.rJ) 

$3 FORMAL PARAMETERS: 

33 radix_point_str String to receive the radix point string 

34 out_len Opt ional length of the radix_point string. 

34 This is valuable if radix_point_str 

34 is a ges ds bi string, since it does not 

= include the padding. 0 

$ IMPLICIT INPUTS: 

‘ System-wide (or user-defined) logical name SYSS$RADIX_POINT 

34 IMPLICIT OUTPUTS: 


FUN — OC OONOUES WN“ OVOONOUS WN —-O0OOn 


Be Se Se Be Se Se Be Se Oe Se Ss Ge Ge Be Se Be Ge Ge Ge Se Ge FHSe SH Se Se Se Ge Ge FH Se Se Se Se FF SH SF Se Oe Oe Se Se Se Se Se Se Se Se SH Se Se Se Se ee ee Sees 


ROMO RO —2 0 8 ae ee a 2 8 ss a 4 4 0 bs a 2 ss a ss — 3 a ss st ts a ss db a ts 


AANIPIPININININININININININYAINYA. OPIN PINIPINOPINoPoPoPononononoforneforononononyd 


35 
8 35 NONE 
86 35 
Hh $2 CONDITION CODES: 
89 35 SS$_NORMAL Normal successful completion | Th 
90 35 LIBS_INVSTRDES Invalid string descriptor | 
4 $2 LIB$_STRTRU String Truncated MA 
38 35 SIDE EFFECTS: 
94 36 
95 36 NONE | 
96 36 
97 36 - 
98 36 | 
99 » 0365 BEGIN | 
00 66 
01 367 BUILTIN | 
02 368 ACTUALCOUNT; 


Cleat 0 aeeten ee 
Get rad 


; Routine Size: 28 bytes, 


printed — 
point symbo 


: 303 0 $9 

; 304 0 

3 305 g} 

: $$ 0 i 

: 508 74 

: 309 0375 

s 10 037 

s 311 037 

5 \¢ 0378 § 
3 1 0379 

3; 314 0380 1 
4E 49 GF SO SF 58 49 


H 7 

16-Sep-1984 

e-88p-198e 93:38:39 

14 

: Call GET_CUSTOM_SYMBOL to do the work. 

RETURN ( or CUSTOR. yngo 
RADIX 


CIF ACTUAL COUNT () Oe 
UPLI LIT seyTe (ZASCIC'SY 


“oor 


3° THEN OUT_LEN CO] ELSE 0), 
RADIX_POINT®), 


AX=-11 Bliss-32 V4.0-7 


LIBRTL.SRCJLIBCUSTOM. : 231 


» Save nothing 


END; ! End of routine LIBSRADIX_POINT 
44 41 52 246 53 59 53 OF 00053 P.AAC: .ASCII <15>\SYSS$RADIX_POINT\ 
54 000462 
0000 00000 «ENTRY LIBSRADIX_POINT 
2E dD 00002 PUSHL #46 
E9 AF 9F 00004 PUSHAB P.AAC 
02 6C 91 00007 CMPB (AP), #2 
0S 1F OOOOA BLSSU _1$ 
08 AC ODD 0000C PUSHL OUT_LEN 
02 11 OO000F BRB 2$ 
7E 04 00011 1$ CLRL -(SP) 
04 AC DD 00013 2$ PUSHL RADIX_POINT_S 
0000v CF 04 FB 00016 CALLS #4, GET otUsTOM™ SYMBOL 
04 00018 RET 


Routine Base: _LIBSCODE + 0063 
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ustomize printed output 
routine 


1 ROUTINE GET_CUSTOM SYMBOL (ZSBTTL ‘Inner routine’ 
OUT_STR: REF BLOCK B 


U e 6 
OGNAM: REF VECTOR C, BYTE 
BYTE 


L 
DEFAULT_CHAR: 


o 


7 
bese 1984 00:42: AX=11 Bliss-32 V4.0-74 
10235071984 1 98:35 LIBRTL.SRC (iscUStOm.B82;1 


YTE) ! Where to pe symbol 
woRDI, ; Ses ienes Length of symbol 
° ' ASCIC logical name 
, ' Default translation character 


+ 
FUNCTIONAL DESCRIPTION: 
This routine is called by LIBSCURRENCY 


LIBSDIGIT_SEP and 


LIBSRADIX_POINT to do the actual translation and string copying. 


CALLING SEQUENCE: 


ret_status.wlc.v 


FORMAL PARAMETERS: 


out_str 
out_len 


Lognam 
default_char 

IMPLICIT INPUTS: 
NONE 


! IMPLICIT OUTPUTS: 


NONE 
CONDITION CODES: 


LIB$_INVSTRDES 
LIBS~STRTRU 


SIDE EFFECTS: 
NONE 


BEGIN 


OCAL 
TRNLOG_STATUS, 
RET 


= GET_CUSTOM_SYMBOL (out_str.wt.dx, 
Cout_len.ww.rd, 
lLognam.rt.r, 
default_char.rbu.v) 


String to receive the currency string 


Ppycenes Length of the currency string. 


is is valuable if currency_str. 
is a etnogevengt) string, since it does not 
include the padding. : 
The ASCIC string containing the logical name to 
translate. 
The default character to use if lognam doesn't translate. 


Invalid string descriptor 
String truncated to fit into output 


' Status from $STRNLOG 
' Return status 


U 
EQUTV_LENGTH: WORD, i Length of equivalence string 


RET_STATUS = LIBSSCOPY_R_DX6 ( abut tno 


' + ' 
i If caller suport tod optional 2nd parameter (OUT “ef fill it in. | 


i No need to check status sree LIBSANALYZE_SDESC_R OUT_STR | 
4 was bad, call to LIBSSCOPY_R_DX6 will have caught ie! 


IF ( OUT_LEN [OJ NEQA 0) 
THEN 
BEGIN 
A 


Lal 
TTEN_LEN: WOR | 
LIBSANALYIE7 _SDESC Wee i. covt STR; 

WRIT TTEN N_CEN): | 
IF .WRITTEN_LEN LSSU .EQUIV_LENGTH | 


EQUIV_LENGTH = .WRITTEN_LEN; 


} 
| 
i 7 
IBSCUSTOMIZE_O Customize printed output 16-Sep-1984 AX-11 Bliss-32 V4.0-74 Page 11) 
iti Inner routine 14- ety 7 99: 48; $8 LIBRTL.SRC LiecUstom BS251 | 
3; 373 +38 LOGDES : BLOCK (8, BYTE), ! String descriptor for logical 
; 374 4 ' name 
3; 375 440 NUMDES : BLOCK (8, BYTE), ! string descriptor for 
s oF 44) ' translate strin ng 
; ag rt EQUIV_STRING: VECTOR CLNMSC_NAMLENGTH, BYTEJ;! Equivalence string 
; 379 0444 + 
; tt ret Initialize descriptors for logical name and translated string 
3; 044 LOsees be DSC$B_ CLASS = DSCSK_CLASS_S; 
; 0448 SC$B_DTYPE] = DSC$K aA T; 
; 384 D669 LOGDES DSCSu-LENGTHD = .LOGNAM f qe 
; +H bees CODES DSCSA_POINTER] = LOGNAM (1); 
; wer Bh 36 NUMDES CDSCSB_CLASS] = DSCS$K_CLASS_S; 
; 388 045 NUMDES COSC$B_DTYPE) = DSCSK-DTYPE_T; 
; 389 0454 NUMDES CDSCSWULENGTH] = LNMSC_NAMLEN tH; 
: 390 0455 NUMDES [CDSCSA_POINTER] = EQUIV_STRING 
; 391 8628 
; 39 045 '¢ 
; #39 0458 i Translate and convert the Logical name to determine 
; 394 0459 ' the symbol. 
: 395 0460 ie 
; 396 P 0461 TRNLOG_STATUS = S$TRNLOG ( 
: 397 P 046 LOGNAM = LOGDES, 
; 398 P 046 RSLLEN = EQUIV_LENGTH, 
; inp ree: RSLBUF = NUMDES); 
: 401 0466 IF ((€ NOT .TRNLOG_STATUS) OR (.TRNLOG_STATUS EQL SS$_NOTRAN) ) 
>; 40 0467 THEN 
; 40 0468 BEGIN 
3 0469 EQUIV_STRING CO] = .DEFAULT_CHAR; ! Use default 
; 405 0470 EQUIV. LENGTH = 1; 
; 0471 END; 
; 407 047 
; 408 047 ie 
: 409 0474 EQUIV_STRING is now the string to return to the caller. 
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: 430 495 OUT_LEN (0) = .EQUIV_LENGTH; 

3 : 1 rs END; 

5 4 : 498 RETURN (.RET_STATUS); 

3 4 499 1 END; ! End of routine GET_CUSTOM_SYMBOL 


-EXTRN SYSS$TRNLOG 
007C 00000 GET setae’ * Yona 


ye R2 R2 R3,R4,R5,R6 
SE FEE CE 9c 9900 MOVAB 38 §p ° 
FA AD O10E 8F B80 0000 MOV sCOGDE 2 
FB AD 0C BC 98 0000D mOvZeW a aL OGNAM LOGDES 
FC OAD OC AC oi C1 00012 ADDL Lo OGNAM, LOGDES+4 
FO AD O10EO0FF F DO 9901 MOVL 4146 4975, NUMDES 
F4 04 AE H: 90020 MOVAB EQUIV. STRING, NUMDES+4 
7E 04 00027 CLRL = = (SP) 
FO AD 9F 00029 PUSHAB NUMDES 
10 AE 9F 900 C PUSHAB EQUIV_LENGTH 
FB AD OF O002F PUSHAB LOG 
000000006 00 06 FB 00032 CALLS #6, SYSS$TRNLOG 
09 50 €9 00039 BLBC -—~TRNLOG_STATUS, 1$ 
00000629 = 8F 30 Di 9005¢ CPL TRNLOG-STATUS, #1577 
04 AE 10 AC 90 00045 1$ MOVB =~ DEFAULT_CHAR, EQUIV. STRING 
6 07 BO O004A MOVW #1, EQUTV_L NcTH 
51 04 AE 9E 00040 2$ MOVAB EQUIY STRING, 
52 04 AC 00 00051 MOVL OUT R 
50 6E 3C 00055 MOVZWL EQ Urv LenetH, RO 
a“ 000000006 99 16 00098 JSB L1BSstPy bx6 
08 AC D3 bo0as TSTL But _LEN 
19 13 00064 BEQL 4s 
50 04 Ac dO 00066 MOVL OUT_STR, RO 
« 000000006 06 16 O006A JsB CIBSANALYZE_spESC_A2 
6E 50 BI 00073 CMPW WRITTEN_LEN; EQUIV_LENGTH 
03 1£ 00% BGEQU 3s 
6E 50 BO 0007 MOVW WRITTEN_LEN, EQUIV. LENGTH 
08 «BC of BO 00078 3$: MOVW EQUIV_LENGTH T-LEN 
50 5 b0 O007F 4$: MOVL §RET_STATUS, ko” 
4 00082 RET 


3; Routine Size: 131 bytes, Routine Base: _LIBSCODE + 007F 


ND ! End of module LIBSCUSTOMIZE_OUTPUT 
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} palate Customize printed output 18s 
-00 Inner routine 14S 
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PSECT SUMMARY 
Name Bytes Attributes 
_LIBSCODE 258 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 


Library Statistics 


Pieridae rhs Be ees Symbols ------- Pages Processing 
; File Total Loaded Percent Mapped Time 

; $255SDUA28:(SYSLIBISTARLET -L 32; 1 9776 1 0 581 00:00.7 
; 255$DUA28: CLIBRTL.OBJIRTLLIB.L32;1 36 2 8 00:00.1 


; COMMAND QUALIFIERS 


Size: 215 ¢ 
Run Time: 00: 
Elapsed Time: 00: 
Lines/CPU Min: 59 
ey Nk Biggs «| 198 
paneer Used: 8 page 
Compilation conpttel 


43 data bytes 


PL ESE/CHECK OCF SEL. INTIAL .OPTIREZE) /HOTRACE/L 1Se1. 15811. IBCUSTOR/OBJ=08J5:1 ISCUSTON MSRC$:LIBCUSTOM/UPDATE=(ENH$:LIBCUSTOM 
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IGIT 
ONFI 


